home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / oberon.lha / system / Configuration.Mod (.txt) < prev    next >
Oberon Text  |  1994-07-21  |  1KB  |  37 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. StampElems
  4. Alloc
  5. 21 Jul 94
  6. Syntax10b.Scn.Fnt
  7. MODULE Configuration;    (** SHML/CN, 
  8.     IMPORT Display, Input, Viewers, Cmd;
  9.     PROCEDURE Break(): BOOLEAN;
  10.         VAR keys: SET; x, y: INTEGER;
  11.     BEGIN
  12.         Input.Mouse(keys, x, y);
  13.         RETURN keys # {}
  14.     END Break;
  15.     PROCEDURE Init*;    (* Do initialization script *)
  16.         VAR v: Viewers.Viewer; res: INTEGER;
  17.     BEGIN
  18.         Display.SetColor(Display.black,200,200,200);
  19.         Display.SetColor(Display.white,0,0,0);
  20.         IF Break() THEN RETURN END;
  21.         Cmd.Call("Log.Open", "", res);
  22.         Cmd.Call("XE.SysOpen", "System", res);
  23.         Cmd.Call("XE.SysOpen", "My", res);
  24.         Cmd.Call("Installer.Start", "", res);
  25.         Cmd.Call("Doc.Install", "XE.Open *", res);
  26.         Cmd.Call("Doc.Install", "XE.Open Mod", res);
  27.         Cmd.Call("Doc.Install", "XE.Open Text", res);
  28.         Cmd.Call("Doc.Install", "XE.SysOpen Tool", res);
  29.         Cmd.Call("Doc.Install", "Draw.Open Graph", res);
  30.         Cmd.Call("Doc.Install", "Browser.ShowDef Sym", res);
  31.         Cmd.Call("Doc.Install", "Paint.Open Pict", res);
  32.         Cmd.Call("Doc.Install", "Disassembler.Disassemble Obj", res);
  33.     END Init;
  34. BEGIN Init
  35. END Configuration.
  36. Cmd.Pick *
  37.